10 REM    CREDIT CARD FILER
25 REM    BY MIKE COOKE
40 REM    (C) 1987
55 REM    PUBLISHED BY:
70 REM    VIKING TECHNOLOGIES, INC.
85 REM
100 IFL=0THENL=1:OPEN15,8,15,"I0":CLOSE15:LOAD"0:LPTR RTN",8,1
110 SYS 65418:POKE 808,234
115 CLR:PRINTCHR$(8);CHR$(14):UP$=CHR$(17)
120 POKE 53269,0
130 NC=0:DIMC$(26,4)
145 POKE53280,0:POKE53281,0
150 PRINT"[147]"
260 V=53248:GT=14335
265 FORT=1TO256:READA:POKEGT+T,A:NEXTT:POKE2040,224:POKE2041,225
280 POKE2042,226:POKE2043,227:POKEV+41,6:POKEV+42,6:POKEV+39,8:POKEV+40,8
295 POKEV+28,15:POKEV+37,1:POKEV+38,7:POKEV+16,12
310 POKEV,47:POKEV+2,71:POKEV+4,9:POKEV+6,33:POKEV+1,68:POKEV+3,68:POKEV+5,68
325 POKEV+7,68:POKEV+21,15
326 PRINT"[147][155]                                       "
327 PRINT" [146]                                      [146]"
328 PRINT" [146]                                      [146]"
329 PRINT" [146]          [154][195]REDIT [195]ARD [198]ILER[155]           [146]"
330 PRINT" [146]                                      [146]"
331 PRINT" [146][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] [146]"
332 PRINT"      [208]RESS [198]8 TO [210]ETURN TO [213]P[212]IME     ":PRINT
340 PRINT"[159]         [215]RITTEN BY [205]IKE [195]OOKE"
355 PRINT"          (C) [195]OPYRIGHT 1987"
370 PRINT" [208]UBLISHED BY [214]IKING [212]ECHNOLOGIES, [201]NC."
385 PRINT"[152]     [196]O YOU WANT INSTRUCTIONS? ";
390 POKE 198,0
400 GETA$:IFA$="[140]"THEN4360
415 IFA$="Y"THENPRINT"[155][217]ES":GOTO610
430 IFA$="N"THENPRINT"[155][206]O":GOTO1090
445 GOTO400
460 REM   *** CLEAR SPACE ***
475 PRINT""
490 Z=0:FORZ=1TO16:PRINT"                                       ":NEXTZ
505 PRINT""
520 RETURN
535 REM   *** PRESS SPACEBAR ***
550 PRINT"       [208]RESS [150]<[211][208][193][195][197]> TO [195]ONTINUE"
565 GETA$:IFA$="[140]"THEN4360
580 IFA$<>CHR$(32)THEN565
595 RETURN
610 REM   *** INSTRUCTIONS ***
625 GOSUB460:PRINT"[152]    [212]HIS PROGRAM'S PURPOSE IS TO STORE"
640 PRINT"UP TO 25 DIFFERENT SETS OF CREDIT CARD"
655 PRINT"INFORMATION. [198]OR EACH CARD, THE PROGRAM"
670 PRINT"WILL STORE ITS NAME, NUMBER, EXP DATE,"
685 PRINT"AND A PHONE NUMBER TO CALL IF YOU WERE"
700 PRINT"TO LOSE THE CARD.  [201]F YOU WERE TO LOSE"
715 PRINT"YOUR CARDS, YOU WOULD HAVE EASY ACCESS"
730 PRINT"TO THE INFORMATION YOU WOULD NEED TO"
745 PRINT"TELL THE CREDIT CARD COMPANY."
760 PRINT:GOSUB535:GOSUB460
775 PRINT"[152]     [212]O PUT A CARD INTO THE FILE, YOU"
790 PRINT"WOULD PICK THE FIRST MENU CHOOSE-ADD A"
805 PRINT"CARD.  [201]F YOU EVER WANT TO ERASE"
820 PRINT"THE INFORMATION ON A CARD, YOU WOULD"
835 PRINT"CHOOSE THE THE APPROPRIATE MENU CHOICE."
850 PRINT"[155][193]LWAYS 'SAVE' THE FILE BEFORE"
865 PRINT"EXITING IF YOU HAVE MADE CHANGES IN"
880 PRINT"THE FILE.  [152][201]F YOU DON'T, THE CHANGES"
895 PRINT"WILL NOT BE RECORDED."
910 PRINT:GOSUB535:GOSUB460
925 PRINT"[152]     [201]N THE FIRST PART OF THE PROGRAM"
940 PRINT"YOU WILL BE ASKED IF THIS A NEW OR AN"
955 PRINT"OLD FILE.  [206]EW FILES ARE ONES THAT HAVE"
970 PRINT"NO DATA.  [217]OU WOULD CHOOSE THIS THE"
985 PRINT"FIRST TIME YOU RUN THE PROGRAM.  [207]LD"
1000 PRINT"FILES ARE THOSE WITH DATA IN THEM YOU"
1015 PRINT"WANT TO CHANGE OR ADD TO.  [201]F YOU SAY"
1030 PRINT"THAT YOU WANT A NEW FILE AFTER YOU HAVE"
1045 PRINT"ALREADY MADE A FILE, THE FIRST ONE WILL"
1060 PRINT"BE ERASED AND A NEW ONE SET UP.":PRINT:GOSUB535:GOSUB460
1061 PRINT"[152]    [212]HE FINAL MENU CHOICE, [208]RINT [204]ETTER"
1062 PRINT"IS USED WHEN YOU LOSE A CREDIT CARD AND"
1063 PRINT"YOU NEED TO SEND A WRITTEN REQUEST FOR"
1064 PRINT"NEW CREDITS CARDS.  [217]OU ARE ASK FOR"
1065 PRINT"ADDITIONAL INFORMATION TO PUT IN THE"
1066 PRINT"LETTER AND YOU SHOULD REPLY IN THE"
1067 PRINT"FOLLOWING FORMAT.":GOSUB535:GOSUB460
1068 PRINT"[152]  [206][193][205][197]:     [155][205]ICHAEL [211]. [195]OOKE"
1069 PRINT" [152] [193][204][212] [206][193][205][197]: [155][211]ONDRA [204]. [195]OOKE"
1070 PRINT"  ([213]SED WITH MORE THAN ONE CARD HOLDER)"
1071 PRINT"  [152][193][196][196][210][197][211][211]:[155]  [208][207] [194]OX 100"
1072 PRINT"                   OR"
1073 PRINT"            801 [204]AKESHORE [196]R."
1074 PRINT"  [152][195][201][212][217]: [155][211]ELMA  [152][211][212][193][212][197]: [155][207][210]  [152][218][201][208]: [155]97538"
1075 PRINT"  [152][196][193][212][197]:     [155][193]UGUST 13, 1987"
1076 PRINT"  [152][208][200][207][206][197] #:  [155](503) 597-1212"
1089 GOSUB535:GOSUB460:GOTO340
1090 REM   *** OLD/NEW FILE ***
1105 PRINT"[152]     [201]S THIS A [155][206][152]EW OR [155][207][152]LD FILE?    [157][157][157]";
1120 GETA$:IFA$="[140]"THEN4360
1135 IFA$="N"THENPRINT"[155][206]EW":GOTO1180
1150 IFA$="O"THENPRINT"[155][207]LD":GOTO1420
1165 GOTO1120
1180 PRINT"     [193]RE YOU SURE?    [157][157][157]";
1195 GETA$:IFA$="[140]"THEN4360
1210 IFA$="Y"THENPRINT"[217]ES":GOTO1255
1225 IFA$="N"THENPRINT"[206]O[145][145][145][145]":GOTO1105
1240 GOTO1195
1255 REM   *** NEW FILE ***
1270 OPEN15,8,15,"I0":OPEN1,8,2,"@0:-CCM DATA,S,W":INPUT#15,A:IFA<20THEN1360
1285 PRINT"[145][145][152][196][201][211][203] [197][210][210][207][210]!!!  [208]LEASE CHECK YOUR DRIVE":CLOSE1:CLOSE15
1300 PRINT"AND PRESS SPACE."
1315 GETA$:IFA$=""THEN1315
1330 PRINT"[145][145][145]":FORT=1TO2
1345 PRINT"                                       ":NEXTT:PRINT"[145]":GOTO1270
1360 PRINT"[152]     [195]REATING FILE..."
1375 PRINT#1,0:CLOSE1:CLOSE15:FORT=1TO500:NEXTT
1390 GOTO1555
1405 REM   *** OLD FILE ***
1420 OPEN15,8,15,"I0":OPEN1,8,2,"0:-CCM DATA,S,R":INPUT#15,A$:IFA$<"20"THEN1510
1435 PRINT"[152][196][201][211][203] [197][210][210][207][210]!!!  [208]LEASE CHECK YOUR DRIVE":CLOSE1:CLOSE15
1450 PRINT"AND PRESS SPACE."
1465 GETA$:IFA$=""THEN1465
1480 PRINT"[145][145][145]":FORT=1TO2
1495 PRINT"                                       ":NEXTT:PRINT"[145][145][145][145][145][145]":GOTO1105
1510 PRINT"     [204]OADING DATA...":INPUT#1,NC$:NC=VAL(NC$):IF NC>26 THEN NC=26
1525 FORT=1TONC:FORY=1TO4:INPUT#1,C$(T,Y):NEXTY,T
1540 CLOSE1:CLOSE15
1555 REM *** MAIN MENU ***
1570 GOSUB460:PRINT"[155]           [195]HOOSE BY [206]UMBER:":PRINT
1585 PRINT"             [155]1)[152] [193]DD CARD":PRINT
1600 PRINT"             [155]2)[152] [197]RASE CARD":PRINT
1615 PRINT"             [155]3)[152] [211]AVE FILE":PRINT
1630 PRINT"             [155]4)[152] [214]IEW CARDS":PRINT:PRINTTAB(13)"[155]5)[152] [208]RINT [204]ETTER"
1645 PRINT:PRINT"            [155][198]8)[152] [197]XIT TO [213]P[212]IME":PRINT
1660 PRINT"[155]           [195]HOICE:";
1675 GETA$:IFA$="[140]"THEN4360
1690 A=VAL(A$):IFA<1ORA>5THEN1675
1705 PRINTA;"  ([217]/[206])? ";
1720 GETA$:IFA$=""THEN1720
1735 IFA$="Y"THENPRINT"[217]ES":GOTO1780
1750 IFA$<>"N"THEN1720
1765 PRINT"[206]O":PRINT"[145]                                       [145]":GOTO1660
1780 ONAGOSUB1810,2065,2455,2725,3475
1795 GOTO1555
1810 REM   *** ADD CARD ***
1825 GOSUB460:PRINTTAB(13)" [159][193]DD A [195]ARD"
1840 IFNC=15THENPRINT:PRINT"[155]      [206]O MORE CARDS MAY BE ADDED.":GOSUB535:RETURN
1855 PRINT:PRINT:NC=NC+1
1870 PRINT:PRINT"      [152][195]ARD NAME:[155] ";
1885 GOSUB3355:C$(NC,1)=A$
1887 IF A$="" THEN C$(NC,1)="*"
1900 PRINT:PRINT"      [152][206]UMBER:[155] ";
1915 GOSUB3355:C$(NC,2)=A$
1920 IF A$="" THEN C$(NC,2)="*"
1930 PRINT:PRINT"      [152][197]XP DATE: [155]";
1945 GOSUB3355:C$(NC,3)=A$
1950 IF A$="" THEN C$(NC,3)="*"
1960 PRINT:PRINT"      [152][212]ELEPHONE #: [155]";
1975 GOSUB3355:C$(NC,4)=A$
1980 IF A$="" THEN C$(NC,4)="*"
1990 PRINT:PRINTTAB(13)" [159][193]DD ANOTHER?"
2005 GETA$:IFA$=""THEN2005
2020 IFA$="Y"THEN1810
2035 IFA$="N"THENRETURN
2050 GOTO2005
2065 REM   *** ERASE CARD ***
2080 GOSUB460:PRINTTAB(13)"[159][197]RASE A [195]ARD"
2095 IFNC=0THENPRINT:PRINT"[152]      [212]HERE ARE NO CARDS TO ERASE.":GOSUB535:RETURN
2110 PRINT:PRINT"[152][213]SE THE UP/DOWN CURSOR KEY TO SCROLL"
2125 PRINT"THE CARDS.  [208]RESS '[197]' TO ERASE A CARD."
2140 PRINT"PRESS '[210]' TO RETURN TO THE MENU."
2155 PRINT:PRINT
2170 C=1
2185 PRINT"[155]";C$(C,1);"[152] - ";C$(C,2):PRINT
2200 PRINTTAB(LEN(C$(C,1)));"   ";C$(C,3);" ";C$(C,4)
2215 PRINT"[195]OMMAND:"
2230 GETA$:IFA$=""THEN2230
2245 IFA$="R"THENRETURN
2260 IFA$="[145]"ANDC<NCTHENC=C+1:GOTO2425
2275 IFA$=""ANDC>1THENC=C-1:GOTO2425
2290 IFA$<>"E"THEN2230
2305 PRINT"[155][197]RASE FOR SURE? "
2320 GETA$:IFA$=""THEN2320
2335 IFA$="Y"THENPRINT"[145]                [145]":GOTO2380
2350 IFA$<>"N"THEN2320
2365 PRINT"[145]                [145]":GOTO2230
2380 FORT=CTONC:C$(T,1)=C$(T+1,1):C$(T,2)=C$(T+1,2):C$(T,3)=C$(T+1,3)
2395 C$(T,4)=C$(T+1,4):NEXTT:NC=NC-1:IFNC=0THENRETURN
2410 C=1
2425 PRINT"[145][145][145][145][145][145][145]":FORT=1TO3
2440 PRINT"                                       ":NEXTT:PRINT"[145][145][145][145]":GOTO2185
2455 REM   *** SAVE FILE ***
2470 GOSUB460:PRINTTAB(13)"[154][211]AVE [198]ILE"
2485 PRINT:PRINT"[152][208]RESS [155][211][152] TO SAVE OR [155][210][152] TO RETURN TO"
2500 PRINT"THE MENU.":PRINT"([211]/[210]):[155] ";
2515 GETA$:IFA$=""THEN2515
2530 IFA$="S"THENPRINT"[211]AVING...":GOTO2575
2545 IFA$="R"THENPRINT"[210]ETURN":FORT=1TO250:NEXTT:RETURN
2560 GOTO2515
2575 OPEN15,8,15:OPEN1,8,1,"@0:-CCM DATA,S,W"
2590 INPUT#15,A:IFA<20THEN2680
2605 PRINT"[196][201][211][203] [197][210][210][207][210]!!!  [208]LEASE CHECK YOUR DRIVE"
2620 PRINT"AND THEN PRESS THE SPACE BAR."
2635 GETA$:IFA$=""THEN2635
2650 IFA$<>CHR$(32)THEN2635
2665 CLOSE15:CLOSE1:GOTO2455
2680 PRINT#1,NC
2695 FORT=1TONC:FORY=1TO4:PRINT#1,C$(T,Y):NEXTY:NEXTT
2710 CLOSE15:CLOSE1:RETURN
2725 REM   *** VIEW CARDS ***
2740 GOSUB460:PRINTTAB(13)"[159][214]IEW [195]ARDS"
2755 PRINT:PRINT"[152][196]O YOU WANT THEM ON THE [155][211][152]CREEN OR THE"
2770 PRINT"[155][208][152]RINTER? ([211]/[208]/[210]): [155]";
2785 GETA$:IFA$=""THEN2785
2800 IFA$="S"THENPRINT"[211]CREEN":GOTO3145
2815 IFA$="R"THENPRINT"[210]ETURN":FORT=1TO250:NEXTT:RETURN
2830 IFA$<>"P"THEN2785
2845 REM   *** OUTPUT TO PRINTER ***
2860 PRINT"PRINTER"
2875 POKE780,2:POKE782,0:SYS828
2890 IFPEEK(783)AND1THENCLOSE2:GOTO2920
2905 GOTO2965
2920 PRINT"[155][208][210][201][206][212][197][210] [197][210][210][207][210]!!! [208]LEASE CHECK YOUR"
2935 PRINT"PAPER SUPPLY AND PRINTER CONDITION."
2950 GOSUB535:GOTO2725
2965 REM PRINTER OKAY
2980 PRINT#2,CHR$(17);"*** [195]REDIT [195]ARD [198]ILER ***"
2995 PRINT#2:PRINT#2,UP$;"[206]AME";SPC(18);"[206]UMBER";SPC(11);"[197]XP DATE";SPC(3);
3010 PRINT#2,UP$;"[212]ELEPHONE"
3025 FORT=1TO60:PRINT#2,"-";:NEXTT:PRINT#2
3040 FORT=1TONC
3055 PRINT#2,UP$;C$(T,1);SPC(ABS(20-LEN(C$(T,1))));C$(T,2);
3070 PRINT#2,UP$;SPC(ABS(20-LEN(C$(T,2))))C$(T,3);SPC(ABS(10-LEN(C$(T,3))));
3085 PRINT#2,UP$;C$(T,4)
3100 NEXTT
3115 FORT=1TO5:PRINT#2:NEXTT:PRINT#2,CHR$(145)
3130 CLOSE2:RETURN
3145 REM SCREEN OUTPUT
3160 GOSUB460:PRINT"[152][213]SE THE UP/DOWN CURSOR KEY TO SCROLL"
3175 PRINT"THE CARDS.  [208]RESS '[210]' TO RETURN TO THE":PRINT"MENU."
3190 PRINT:PRINT
3205 C=1
3220 PRINT"[155]";C$(C,1);" - [152]";C$(C,2):PRINT
3235 PRINTTAB(LEN(C$(C,1))+3);C$(C,3);"   ";C$(C,4)
3250 PRINT"[195]OMMAND:"
3265 GETA$:IFA$=""THEN3265
3280 IFA$="R"THENRETURN
3295 IFA$="[145]"ANDC<NCTHENC=C+1
3310 IFA$=""ANDC>1THENC=C-1
3325 PRINT"[145][145][145][145][145][145][145]":FORT=1TO3
3340 PRINT"                                       ":NEXTT:PRINT"[145][145][145][145]":GOTO3220
3355 REM GET INPUT
3370 POKE204,0
3385 C=0:A$="":L$=""
3400 GETL$:IFL$=""THEN3400
3415 IFL$=CHR$(20)ANDC>0THENC=C-1:A$=LEFT$(A$,C):PRINTL$;:GOTO3400
3430 IFL$=CHR$(13)THENPRINT" ":POKE204,1:RETURN
3445 IFL$<" "ORL$>"[218]"THEN3400
3450 IF L$>"_" AND L$<"[193]" THEN 3400
3455 IF C=24 THEN 3400
3460 A$=A$+L$:PRINTL$;:C=C+1:L$="":GOTO3400
3475 REM PRINT LETTER
3490 GOSUB460:PRINTTAB(13)"[159][208]RINT [204]ETTER"
3505 PRINT:PRINT:PRINT" [155][215]HICH CARD DID YOU LOSE?[152]":PRINT
3520 FORT=1TONC:IFT/2=INT(T/2)THENPRINTTAB(22);T"[157]> ";C$(T,1):GOTO3550
3535 PRINT"  ";T"[157]> ";C$(T,1);
3550 NEXTT:PRINT:PRINT:PRINT" [155][206]UMBER- ";
3565 GETA$:IFA$=""THEN3565
3580 CT=VAL(A$):IFCT<1ORCT>NCTHEN3565
3595 PRINT"[152]"CT
3610 PRINT:PRINT" [152][215]AS THIS CARD [155][204][152]OST OR [155][211][152]TOLEN?":PRINT" (L/S)?"
3625 GETSL$:IFSL$=""THEN3625
3640 IFSL$<>"L"ANDSL$<>"S"THEN3625
3655 GOSUB460:PRINTTAB(13)"[159][208]RINT [204]ETTER":PRINT
3670 PRINT" [152][215]HAT IS YOUR FULL NAME?":PRINT" >[155]";:GOSUB3355:N1$=A$:PRINT
3685 PRINT" [152][193]LTERNATE NAME?":PRINT" >[155]";:GOSUB3355:N2$=A$:PRINT
3700 PRINT" [152][211]TREET OR [208][207] [194]OX ADDRESS?":PRINT" >[155]";:GOSUB3355:AD$=A$:PRINT
3715 PRINT" [152][195]ITY?":PRINT" >[155]";:GOSUB3355:CI$=A$
3730 PRINT"[145][145]"TAB(12)"[152][211]TATE?":PRINTTAB(12)">[155]";:GOSUB3355:ST$=A$
3745 PRINT"[145][145]"TAB(23)"[152][218]IP?":PRINTTAB(23)">[155]";:GOSUB3355:Z$=A$:PRINT
3760 PRINT" [152][196]ATE?":PRINT" >[155]";:GOSUB3355:D$=A$
3775 PRINT"[145][145]"TAB(23)"[152][208]HONE #?":PRINTTAB(23)">[155]";:GOSUB3355:PN$=A$:FORT=1TO500
3790 NEXTT
3805 GOSUB460:PRINTTAB(13)"[159][208]RINT [204]ETTER":PRINT:PRINT
3820 PRINT"[155] [212]YPE '[210]' TO RETURN TO MENU OR '[208]' TO":PRINT" PRINT.":PRINT" ([210]/[208])?"
3835 GETA$:IFA$=""THEN3835
3850 IFA$="R"THENGOTO1555
3865 IFA$<>"P"THEN3835
3880 REM  PRINT LETTER ROUTINE
3895 POKE780,2:POKE782,0:SYS828
3910 IFPEEK(783)AND1THENCLOSE2:GOTO3940
3925 GOTO3985
3940 PRINT"[155][208][210][201][206][212][197][210] [197][210][210][207][210]!!! [208]LEASE CHECK YOUR"
3955 PRINT"PAPER SUPPLY AND PRINTER CONDITION."
3970 GOSUB535:GOTO3805
3985 REM PRINTER OKAY
4000 FORT=1TO12:PRINT#2:NEXTT
4015 PRINT#2,UP$;SPC(10);N1$:IFN2$<>""THENPRINT#2,UP$;SPC(10);N2$
4030 PRINT#2,UP$;SPC(10);AD$:PRINT#2,UP$;SPC(10);CI$;", ";ST$
4045 PRINT#2,UP$;SPC(12+LEN(CI$));Z$
4060 PRINT#2,UP$;SPC(10);PN$:PRINT#2
4075 PRINT#2,UP$;SPC(10);D$
4090 FORT=1TO5:PRINT#2:NEXTT:TB$="          "
4105 PRINT#2,UP$;TB$;"[196]EAR [211]IR OR [205]ADAM:":PRINT#2
4120 PRINT#2,UP$;TB$;"     [210]ECENTLY [201] CALLED TO INFORM YOU THAT MY"
4135 PRINT#2,UP$;TB$;C$(CT,1);" CARD HAD BEEN ";
4150 IFSL$="S"THENPRINT#2,UP$;"STOLEN.  ";
4165 IFSL$="L"THENPRINT#2,UP$;"LOST.  ";
4180 PRINT#2,UP$;"[212]HE NUMBER"
4195 PRINT#2,UP$;TB$;"IS ";C$(CT,2);" WITH AN EXPIRATION"
4210 PRINT#2,UP$;TB$;"DATE OF ";C$(CT,3);".  [208]LEASE SEND REPLACEMENT"
4225 PRINT#2,UP$;TB$;"CARDS FOR THE NAME";:IFN2$<>""THENPRINT#2,UP$;"S ";:GOTO4255
4240 PRINT#2," ";
4255 PRINT#2,UP$;"LISTED ABOVE AT YOUR"
4270 PRINT#2,UP$;TB$;"EARLIEST CONVENIENCE.":PRINT#2
4285 PRINT#2,UP$;TB$;"[212]HANK YOU FOR YOUR HELPFUL SERVICE."
4300 FORT=1TO5:PRINT#2:NEXTT
4315 PRINT#2,UP$;SPC(10);"[210]ESPECTFULLY,":FORT=1TO4:PRINT#2:NEXTT
4330 PRINT#2,UP$;SPC(10);N1$:CLOSE2:GOTO1555
4345 END
4360 REM   *** RETURN TO UPTIME ***
4375 SYS (8*4096)
4390 DATA 85,85,85,85,85,85,85,85,85,85,127,245,85,255,253,87,255,255,87,255
4405 DATA 255,93,221,213,93,87,94,93,213,85,93,215,125,93,215,85,95,255,254,95
4420 DATA255,254,87,255,255,87,255,255,85,255,253,85,127,245,85,85,85,85,85,85
4435 DATA85,85,85,104
4450 DATA85,85,85,85,85,85,85,85,85,90,169,85,106,170,85,170,170,149,170,170
4465 DATA149,85,85,101,153,166,101,153,101,101,153,165,165,153,86,101,170,170
4480 DATA165,170,170,165,170,170,165,170,170,149,170,170,149,106,170,85,90
4495 DATA169,85,85,85,85,85,85,85,1
4510 DATA170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170
4525 DATA85,85,85,101,102,170,101,101,101,101,101,101,101,101,101,105,165,101
4540 DATA90,149,101,86,86,170,85,85,85,255,255,255,255,255,255,255,255,255,255
4555 DATA255,255,255,255,255,255,255,255,104
4570 DATA170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170
4585 DATA85,85,85,90,150,165,101,86,101,101,90,105,90,90,169,85,153,89,85,153
4600 DATA89,106,89,89,85,85,85,255,255,255,255,255,255,255,255,255,255,255,255
4615 DATA255,255,255,255,255,255,104